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ENFIN … 


EDITORIAL 


Je ne sais si vous êtes comme moi, mais à Prend-on réellement le public télévisé pour un 
chaque information à caratère technique diffusée âne? La télévision s'adresse à une audience très 
par les journaux télévisés, je reste sur ma large. Si les téléspectateurs (certains...) sont 
faim. Ce ne sont pas les quelques éprouvettes, aptes à retenir toutes les ,séléctions de matchs, 
les trois écrans fades et les crachotements de les divisions, les calendriers de rencontres et 
tuyères épisodiques qui me satisfont. Par con- les compositions d'équipes (je passe les 
tre, quand il s'agit d'un joueur de football transferts et Iles bobos...), pouquoi ne compren- 
quelconque, on l'interroge, le questionne. Or, draient-ils pas un reportage sur les Systèmes 
le métier de footballeur consiste essentielle- experts, la navigation interplanétaire où les 
ment à faire avancer un ballon, non à parler détail de l'acide désoxyribonucléique (un cousin 
devant un micro. Et qu'ils sont nuls les inter- du fluobenzinactivozone...). Alors j'ai décidé 
view de nos tapeurs de ballon. de me venger au travers de cet éditorial. Et, 


profitant de ce que nous diffusons dans ce numé- 
Je n'ai rien contre le football, mais il y a une: ro un programme en PROLOG, je vous propose une 
telle disproportion entre la part faite entre version personnelle du discours type d'un fout- 
l'information sportive et l'information scienti- baleur (il parait qu'il faut franciser, mais ils 
fique que l'on en vient à se demander si nos n'ont pas dit s'il faut un "l" ou deux "“11") 
chers médias craignent de nous effrayer avec des telle qu'elle pourrait étre reprise par les 
termes trop techniques. J'ai à ce propos une Chroniqueurs sportifs, ce qui leur fera économi- 
anecdote: nous avons été invités, notre cher ser les frais de déplacement (ce que je suis 
Président Michel ROUSSEAU et moi-même à présen- méchant...): 
ter divers usages de la micro-informatique pour 
en passer des séquences dans le petit journal. 
J'avais envisagé de présenter EXPERT-2, écrit en 
FORTH, sur THOMSON TO7. Une fois le matériel 


“lors de notre dernière rencontre en ((pre- 
mière, deuxième)) division lors des ((finales, 
demi-finales, quart de finale)) en Championnat 
((de france, d'écosse, d'europe)) contre ((l'I1- 


installé, les éclairages réglés et la caméra . : 

prète, la première question tombe. Il fallait talie, la Roumanie, la Bulgarie, le Bresil, 
faire simple, très simple m'a-t-on dit. Il faut autres)), nous avons eu à faire face à ((des 
qu'en trente secondes, le téléspectateur ait une joueurs, une équipe, un terrain, un Vent, l'al- 
idée de ce qu'est un système expert. En conclu- titude)) qui nous ont donné bien ((du mal, du 


fil à retordre, des Soucis)). Mais nous espé- 
rons((la saison prochaine, le prochain match, 
l'année prochaine)) ((gagner, gagner, gagner, 
gagner))... etc... 


sion, EXPERT-2 est devenu un programme de diag- 
nostic du fonctionnement du THOMSON (sinon pour- 
quoi présenter un THOMSON...) - pardon, diagnos- 
tic c'est trop compliqué - un programme qui 
recherche les pannes (remarque persogelle: s'il 
est réellement en panne, comment fait-on marcher 
EXPERT-2 ?). 


Et avec la chaleur du mois d'août, prenez ce qui 
précède au second degré. Que les passionnés de 
football me pardonnent, la prochaine fois j'é- 
gratignerai les joueurs de tennis. 
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FUTURLOG ET FUTURSYS 


A PREMIERE VUE 


Ma première rencontre avec FUTURSYS 
s'est produite au SICOB de printemps 1985 et 
c'est un peu le hasard qui m'a guidé dans cet- 
te direction. Il est vrai que le stand était 
trés sobre, donc impossible de ne pas voir 
cette petite boîte noire et verte. 


L'idée de base du concepteur de ce sys- 
tème est d'apporter les notions utilisées par 
les systèmes experts et l'I.A.: un ‘“pseudo- 


PROLOG* de poche. A cet effet, FUTURSYS est a- 
limenté par une batterie intégrée rechargeable 
et reste en permanence sous tension, réglant 
ainsi définitivement le compte aux micro-cou- 
pures (d'habitudes ce sont elles qui ont rai- 
son de votre programme et de votre patience). 


AVEC DE LA CONFITURE 


FUTURSYS est un système portable, di- 
sais-je, donc utilisable partout, y compris en 
voyage et par les blasés du TGV qui font PARIS 
LYON deux fois par semaine. Et si pris par 
par l'enthousiasme du problème, vous l'emmenez 
au wagon-restaurant, il suportera le café ou 
la confiture, car ii est équipé d'un clavier à 
membrane. Bien sûr, au début, un peu habitué 
au 2X81 et au THOMSON, j'appuyais fortement, 
sur ce *x)@S!trx&é (censuré) de clavier avant de 
me rendre compte qu'il était plus sensible que 
prévu. 


Enfin, FUTURSYS permet la sauvegarde des 
“programmes” (appelons les choses comme celà 
avant de vous torturer les méninges) sur un 
magnétophone à cassette ordinaire. 


Le clavier comprend 47 touches ayant de 
une à quatre significations possible, et deux 
touches séparées RAZ et STOP situées en 
dehors du clavier, car dangereuses à utiliser. 


ÿ Au dessus du clavier, un afficheur LCD 
de deux lignes de 40 colonnes permet de pren- 
dre connaissance des réactions de FUTURSYS 
quand on lui demande quelque chose. 


UN PETIT QUELQUE CHOSE 


C'est ici que les surprises commencent. 
FUTURLOG qui est le langage de FUTURSYS ne 
sait pratiquement rien faire, au sens habitu- 
el donné en programmation, pas même une addi- 
tion (dommage, moi qui ai l'habitude d'essayer 
mes PRINT TRUC et ECRIS CHOSE sur tout clavier 
qui traine, histoire de voir ce qu'il a dans 
les tripes). J'exagère un peu, en fait FUTUR- 
LOG sait quand même écrire: . 


ECRIRE23456789876543 


ce qui affiche: 


23456789876543 


Une première constatation,  FUTURLOG comprend 
uniquement les nombres entiers mais sans limi- 
te de taille. Ainsi, cette expression: 


ECRIRE12345678901234567890123456789 
sera analysée dans son intégralité. 


L'ADDITION S'IL VOUS PLAIT 


L'addition, opération non 
la mise en route de FUTURLOG, 


disponible à 
peut cependant 


étre définie. FUTURLOG ne faisant pas de dis- 
tinctions entre les données et les instruc- 
tions, à l'instar de LOGO ou LISP, développe 


sa connaissance sous forme de CONCEPTS eux-mèê- 
me partagés en STRUCTURES et en FAITS. 


La définition de l'addition peut être 
réalisée de la manière suivante: 


CS10C1RAPLUSAR. 
CF10I00C1R5PLUS7=12. 


et maintenant, 
ECRIRES5SPLUS7 


si on tape: 
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on obtient 12 à l'affichage. 
Essayons: 

ECRIRE3PLUS2 
cà ne marche pas !!! 


Eh oui, FUTURLOG ne sait 
7. Pour expliquer ceci, 

taillée de la définition 
vons réalisée plus haut: 


CS10C1RAPLUSH} 
signifie: 


additionner que 5 
voici l'analyse 
telle que nous 


et 
dé- 
l'a- 


CS pour Créer Structure 
10 car cette Structure a ie n° 
C1 dans la base du Concept 1 
R dont la représentation est 
RPLUSA. 


Le point et les espaces 
importants. 


CF10100C1R5PLUS7-12 
signifie: 


10 


éventuels sont très 


CF pour Créer un Fait 
10 de numéro 10 
100 opération implicite 00 
C1 dans la base de faits du con- 
cept 1 
R5PLUS7-12 dont la représenta- 
tion est celle qui suit R 


Ainsi, lorsque vous tapez ECRIRE5PLUS7 , le 
langage FUTURSYS reconnait le fait S5PLUS7 et 
remplace cette expression par son membre de 


droite. 


péjà, vous dites-vous, Çà commence mal, car 
apparaissent des symboles pour le moins caba- 
listiques. Ainsi, le signe R qui signifie que 
l'on a affaire à une variable de type “Analy- 
sable Valorisable". 


DES VARIABLES DANS LES FAITS 


FUTURLOG possède quatre types de varia- 
bles: 


fl Analysable Valorisables 

F Analysables Formelles 

m Non Analysables Valorisables 
+ Non Analysables Formelies 


La forme des signes est en étroite relation a- 
vec leur signification. Ainsi, le signe BR est 
la contraction stylisée de A et v. 


intéressons-nous pour le moment au premier 

type de variables, R  , et voyons son rôle 

dans la définition de l'addition. 
CS10C1RRPLUSR. 

L'utilisation de variables, dans la représen- 


tation de la structure 10 indique que tout ce 
qui se situera de part et d'autre de PLUS sera 


: analysée et valorisée lors de calculs. 


Mais cette valorisation n'est efficace qu'à 
travers une fonction implicite. Or  FUTURLOG 
est équipé de la fonction implicite d'addi- 
tion, fonction qui porte le numéro 13 et fait 
appel à trois arguments: 


Al: numérique entier 
A2: numérique entier 
A9: résultat de la somme de Al et A2. 


Les expressions Ai, A2 et A9 peuvent être as- 
similées à des “registres”. Ces arguments ne 
peuvent en aucun cas être modifiés. Ainsi, 
A4+A7=A6 ne correspond pas du tout à la fonc- 
tion implicite de l'addition. 


on va donc redéfinir le FAIT 10, mais en fai- 


sant appel à la fonction implicite 13: 
CF10113CI1RA1PLUSAZ2=A9. 


— 


ce qui signifie que nous venons de créer le 
Fait 10, utilisant la fonction Implicite 13 
(addition) dans 1a base du Concept 1, dont la 
représentation est A1PLUSA2-A9. 


Et maintenant: 
ECRIRE12345678PLUS87654321 
affiche 
99999999 


Vous pouvez additionner des nombres de 20, 30, 
100 chiffres et même plus: 


ECRIRE123456780123456789013457PLUS987654 
123456789098765432 


cà marchera. 


Les espaces ont une importance capitale. Si on 
réécrit la structure 10 et le fait 10 en met- 
tant des espaces, ceux-ci devront ensuite étre 
utilisés dans la syntaxe FUTURLOG: 


CS10CI1RRG PLUS A. 
CF10113C1RA1 PLUS A2=A9. 


et ECRIRE3 PLUS 5 affiche 8 


En fait, la manière dont une fonction implici- 
te peut être exprimée en FUTURLOG est laissée 
à l'appréciation du programmeur. Voici diver- 
ses manières d'exprimer une addition: 


Notation algébrique: 


CS10CI1RR+A. 
CF10113CI1RA1+A2=A9. 


Notation LOGO: 


CS10CIRSOMMER A 
CF10I13CIRSOMME A1 A2=A9 


Notation FORTH: 


CS1OCIRA +. 
CF10113C1RA1 A2 +=A9. 


A propos de la notation algébrique, il est 
possible de créer la mise en parenthèses: 


CS10CIR(R). 
CF1O0IOR(A1)=A1. 
CS11C1RR+ 1m. 
CF11113C1RA1+A2=A9. 


Et maintenant ECRIRE2+3 ou ECRIRE(2)+(3) ou 
encore ECRIRE(2+3) sont acceptées. 


De même, une opération de type ECRIREZ2+3+5 se- 
ra valide. En effet, FUTURLOG analyse la chai- 
ne de caractères de gauche à droite, et 2+3+5 
est assimilé au concept B+fl si celui-ci a été 
préalablement défini (bien entendu), en attri- 
buant 2 à la variable de gauche et 3:+5 à, la 
variable de droite: 
+ . 
A 


2 3+5 


L'analyse isole maintenant la sous-chaine 3+5 
en appliquant la même relation, ce qui 
un arbre d'analyse: - 


donne 


Bigre ! Voilà qui ressemble à de la récursivi- 


té ! Mais voyons un cas utilisant 


la récursivité. 


réellement 


LA RECURSIVITE 


Dans l'exemple suivant, on Va réaliser 
un “programme” permettant d'obtenir la somme 
de n nombres entiers: 


CS10C1RRAPLUSA. 
CF10113C1RAIPLUSA2-A9. 
CS11C1RSOMME DERAA. 
CF12I10CI1RSOMME DEA1AA1=A1. 


CF1210C1RSOMME DEALAAZ2=A1PLUSSOMME DEA 
PLUS1AA2. 


Et l'utilisation de ces structures permet donc 
la résolution de ECRIRESOMME DE1A4 


Les opérations successives seront: 


IPLUSSOMME DE2A4 
Soit: 1PLUS2PLUSSOMME DE344 
Soit: 1PLUS2PLUS3PLUS4 
dont le résultat est 10. 


Enfin, pour finir avec ‘les exemples, 
comment créer en FUTURLOG la somme de N 
quelconques: 


CS10CIRA+F. 
CF10113C1RA1+A2=A9. 
CS11CIRÆ(R). 

CS12C1RPR,P. 
CF13IOCIRE(A1,A2)=A1+ (A2). 
CF14I0C1RE(A1)=A1. 


Ainsi, quand l'argument de %( ) est composé 
de deux nombres ou plus, c'est le FAIT 13 qui 
est activé, sinon c'est le fait 14. 


voici 
nom- 


Ce qui donne pour £#(5,7,4) la résolution 
vante: 


sui- 


S5+8(7,4) 
5+7+2(4) 
5+7+4 


Vous pouvez aussi essayer un truc du genre: 
Æ(1235,654,45,10000,1098754) 


dont je ne donne pas la réponse, 
tant plus doué que moi. 


FUTURLOG é- 


L'INTIMITE DE FUTURLOG 


En discutant avec le concepteur de FU- 
TURSYS, j'ai appris certaines choses qui ne 
ne sont pas évidentes à la seule lecture du 
manuel. Ainsi, parmis certaines informations, 
il se trouve que le "moniteur" de FUTURLOG est 
écrit en FUTURLOG, y compris la manière dont 
les STRUCTURES et les FAITS doivent être défi- 
nis: 

- un détail, si on définit un FAIT ou 
une structure déjà existantes, tous les FAITS 
ou STRUCTURES voient leurs numéros d'ordre in- 
crémentés. Par exemple, si je définis 
CSIOCIR + puis CS1O0CIR PLUS . la première 
version de CS10 devient CS11. 


-.en tenant compte de ce qui précède, on 
a édité les STRUCTURES et les FAITS faisant 
fonctionner FUTURLOG. 


Sans entrer dans le détail, car çà nous mène- 
rait trop loin, voici quelques échantillons de 
FUTURLOG : 


le système moniteur: 


(F2C1) SYS-ECRIRE "OK" ; LIRE; TABLEAU; ATTEN 
DRE; SYS. d 
(F3C1) ECRIRE A1=COMMT 8 9 @ D A1. 
(F6C1) LIRE=COMUT 9 9 9 Z @. 
(F8C1) TABLEAU=COMTA © 9 G R 9. 
(F9C1) ATTENDRE-COMMU 9 9 6 9 @. 
(F10C1) COMA1 A2 A3 A4 A5 A6=A9. 
(F11C1) CFAZIASCAIRA4= @ 
(F12C1) CSA3CA1RA4= ÿ 


On voit tout de suite que le moniteur est ré- 
cursif (FAIT 2, CONCEPT 1), car SYS se retrou- 
ve à droite et à gauche du terme. Pourtant FU- 
TURIOG ne "plante" pas, car il n'y a pas d'em- 
pilement de paramètres. Ainsi, le moniteur FU- 
TURLOG est perpétuellement ré-entrant. 


Pour ce qui est de LIRE, TABLEAU, ATTENDRE et 
COM, les différents paramètres indiquent la 
manière dont l'affichage et la saisie des ca- 


ractères doit être réalisée. Le signe g indi- 
que qu'il n'y a pas altération du paramètre 
prédéfini dans le système. Avec FUTURLOG, 


vous pouvez afficher non seulement de gauche à 
droite, mais aussi de droite à gauche (pour 
les Leonard de Vinci), mouvements de curseur 
compris, mais aussi de haut en bas, en diago- 
nale, ou lettre à lettre, en fenêtre (une de 
Saisie et une d'affichage). 


rt 
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CONCLUSION 


FUTURLOG est un excellent outil à voca- 
tion pédagogique pour tous ceux qui s'intéres- 
sent de près à l'intelligence artificielle et 
aux systèmes experts. On a souvent entendu 
parier du projet japonais d'ordinateurs de 
cinquième génération et à ce titre, FUTURLOG 
arrive à point, donnant accès à tout le monde 
aux concepts qui prédomineront très certaine- 


ment dans l' informatique des années futures. 


FUTURSYS, par !l' utilisation des Vertes 
bles, possède un moteur d'inférence d'ordre 1, 
et procède également par compilation ou inter- 
prétation, permettant une vitesse de résolu- 
tion très élevée. 


La possibilité de contrôler sa syntaxe, 
par l'intermédiaire de FAITS et de STRUCTURES 
permet d'adapter la formalisation des problè- 
mes aux cas à traiter. L'utilisation de nom- 
breux signes particuliers permet nottament une 
très grande concision dans l'écriture des 
faits et structures, ou au contraire, un glis- 
sement progressif vers une syntaxe proche de 
celle de langages existants tels LISP ou PRO- 
LOG. Ainsi, j'ai eu personnellement l'occa- 
sion de vérifier l'adaptabilité du contenu de 
“Programmez en logique avec Micro-PROLOG" (ed. 
EYROLLES) à FUTURLOG. Bien entendu, ma défor- 
mation de FORTHien chevroné a quelque peu al- 
téré certaines expressions. 
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| FUTURLOG permet d'activer le moteur 
d'inférence en mode "“inférence multiple", ou- 
vrant la voie au dénombrement de solutions, 
exploration d'arbres de possibilités, etc... 


Les modes algorithmique et inférence 
multiple sont utilisables simuitanément, per- 
mettant le calcul traditionnel, avec une très 
grande liberté de syntaxe, et la recherche en 
I1.A. avec un potentiel inégalé. 


Contact: toute personne désireuse d'acquérir 
un système FUTURSYS ou avoir des renseigne- 
ments complémentaires peuvent écrire à: 


INFORMATIQUE INDUSTRIE et SERVICE 
BP 706 
75162 PARIS CEDEX 04 


Des réductions peuvent être consenties aux a- 
dhérents JEDI si plusieurs membres sont inté- 
ressés. 


Edité par PPC-T - TITRE: MICRO-REVUE 
77, rue du Cagire 31100 TOULOUSE 
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FORTHLE LANGAGE BLAISE par Eric AUBOURG 


2ème EPISODE 
LES DIAGRAMMES SYNTAXIQUES 
REALISATION D'UN ANALYSEUR 


Prenons un exemple: le langage défini par 


Une seconde représentation d'une grammaire est 
un diagramme syntaxique, ou diagramme de 
Conway. Cette représentation est beaucoup plus ; # ; ; 
parlante que la notation BNF, mais ces deux  P'Oduisant, par exemple x, (x), (x+x), ... on a: 


systèmes sont tout à fait équivalents. Les lois n 
de représentation sont les suivantes: 4 (O (| © B 


- un symbole terminal x est représenté dans un 
cercle ou un ovale: 


0) nn) 


- un symbole non terminal est représenté dans 
un rectangle: 


—L} identificateur 


- une production de la forme A::=%,l060..104, est 
traduite par le diagramme A: 


at 

Se 
Ra 

+ 
A 


En général, sauf pour des exemples aussi 
simples, on préfère la première forme. 


Un analyseur pour ce langage pourrait étre: 


- une production de la forme A::=daog ..dnest 
traduite par 


Procédure A 


A a ns Si sym = "x" alors lire sym sinon 
[= ° $ si sym - "(" alors 
- une production de la forme ai:= {ay est début 
traduite par lire Sym ; À ; tant que sym = "+" 
faire début 
lire sym ; 4 
A fin; 
si Sym = ")" lire sym sinon erreur 
ë fin 

A partir de maintenant, il est aisé de cons- sinon erreur 
truire un analyseur syntaxique pour le langage fin A. 
ainsi défini; le diagramme syntaxique représen- 
te quasiment l'organigramme de j'analyseur. Et le programme est lire sym ; À fin. 


Celui-ci, comme son nom l'indique, se contente Dans le prochain numéro nous passerons à Ja 


d'analyser r, c'est à dire de vérifier la syn- pratique. Nous définirons un véritable langage, 
taxe des programmes. Les langages les mieux le BLAISE, et nous écrirons un analyseur en 
adaptés pour cela sont les langages structurés: FORTH pour ce langage. 

on décompose les diagrammes syntaxiques en 

blocs de petites tailles à chacun desquels va 

correspondre une procédure. 4) 


Le PASCAL, pour exemple, convient très bien, 
ainsi que le FORTH. Nous aurons l'occasion d'y 
revenir. Pour le moment, nous utiliserons le 
langage naturel. 


Supposons alors que nous ayons dans une Varia- 


ble sym le prochain symbole lu (nous travail- 
lons en LL1), et que nous symbolisions par T(S) 
la procédure analysant le symbole non terminal 
S. Une séquence A::= Ss1 S2 .. sn est traduite 
par : 


Procédure A T(S1) ; T(S2) ; ... T(Sn) fin A 


Un choix A::= S1{S21..{\sn par, avec 
la=first(Si): 


Procédure À : selon que sym l4 faire T(S1) dessir 
sym lh faire T(Sn) electronique 
autrement erreur fin A. \ sur fimstrad 


Une itération A::-fS} par: 


Procédure A 


tant que sym L faire T(S) fin A 


Le traitement d'un terminal x est tout 
Simplement si sym = x alors lire symbole 
suivant sinon erreur. 


Et le traitement d'un non terminal consiste en 
l'appel de la procédure correspondante. 
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FORTH mi LANGAGE GRAPHIQUE Dar Jean-Paul POSTEC 


Concevoir, écrire et mettre au point un mini-langage graphique 
répondant au minimum aux spécifications données ci-après, 
telle était l'épreuve de programmation des Olympiades de la 
Nicro-Informtique qui se sont déroulées à NANTES en Juin 85. 
Le choix du langage était libre, par contre le mtériel était 
inposé : MO5, TO7 ou T07-70. 

Le programme que je vous propose ci-après a donc été écrit à 
cette occasion et a obtenu la médaille d'Or. Je ne vous décris 
pas la tête des menbres du jury losqu’ils ont su qu'il était 
écrit en FORTH ! Ils s'y attendaient si peu que j'ai été 

obligé de leur prêter ma propre cartouche FORTH ! Enfin... 


Voici les spécifications minimales telles qu'elles étaient 
décrites pour l'épreuve, avec des erreurs volontaires. 

Le MLG fonctionne sur l'environnement suivant : un écran de 25 
lignes de 40 colonnes partagé en deux. La partie supérieure 
est le domaine graphique composé des 24 premières lignes. La 
partie inférieure est la ligne de commande toujours visible où 
l'utilisateur saisit les lignes de HLG. 

Le domaine graphique est donc un espace où un pixel est défini 

par deux caordonnées X et Y. Avec X variant de 0 à 319 et Y 
variant de 0 à 191 (et non 199 comme en plein écran). Le pixel 

zéro (X=0,Y-0) est situé dans le coin supérieur gauche de 
l'écran. 

L'élément de base du MLG est la ligne. Une ligne est une suite 
de caractères saisis par l'utilisateur à partir du clavier 
uniquement. Le délimiteur de fin de ligne est le caractère 
ASCII CR (dec 13) engendré par l'appui sur la touche ENTREE. 

Dès qu'une ligne est saisie, il y a décodage et exécution 
IMMEDIATS de ou des instructions MLG contenues dans la ligne 
SAKS KMEMORISATION. Le MLG est un langage très restreint par 
rapport au Basic. Seules les constantes numériques entières 
sont admises. 11 ne possède qu'une procédure : P. 

La structure d'une instructrion MLG est la suivante : 

M ou Mval ou Mhatne. 

M est un mot-clé constitué d'une seule lettre mjuscule (voir 
liste plus lain). 

va L est une quantité entière positive ou négative dans 
l'intervalle -32768...+32767. 

Ghatne est une chaîne de caractères contenant une ou 
plusieurs instructions de MLG. 

/ :le "slash" est le délémiteur standard du MLG entre chaque 
instruction. Il est nécessaire si une ligne comporte plus 
d'une instruction. 

Exemples de lignes valides en MLG : 


Une ligne avec une seule instruction : 
LI 

Une ligne avec 12 instructions : 
N/L/F0/C4/U159/V94/P/R50/C7/R70/C1/R90 


Points particuliers pour la saisie : 


En début de 25ème ligne, un caractère ? indiquera à 
l'utilisateur que le KLG est en attente. La saisie utilisera 
les commodités standards des flèches d'édition, ins et eff. 
Une ligne aura au plus 39 caractères. 
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Vocabulaire : 


N : nettoie l'écran sans modifier les coordonnées courantes 
de la plume. 

O : origine. Met les coordonnées courantes à zéro. 

M : milieu. Met les coordonnées courantes à U=159 et V-94. 

B : baisse la plume de façon à laisser une trace sur l'écran 
et donc dessiner. 

IL. : lève la plume pour se déplacer sans laisser de trace. 
CvVa L : établit la couleur de trace à la valeur val. (val 
appartient à 0..7). 

Fva ZL : établit la couleur de fond à la valeur val. 
Xva LL : actualise la coordonnée X à X + val. 

Yva L : actualise la coordonnée Y à Y + val. 

D : se déplace jusqu’au point courant (avec ou sans trace 
suivant L et B). 

Uva L : actualise X à la valeur val. 

VvyaZL : actualise Y à la valeur val. 

Rval : trace un cercle (rond) de rayon val et de centre 
ayant pour coordonnées les coordonnées courantes. 
P<hatne de caractères : définit la procédure courante 
qui est mémorisée en lieu et place de celle établie par une 
instruction P antérieure. 

E : active (exécute) la procédure courante, 


Exenples : 
N/0/N/F0/C4/R50/C7/R70/C1/R90 


Efface l'écran, se place au milieu de l'écran, met le fond en 
noir, la trace en bleu, dessine trois cercles concentriques 
bleu, blanc et rouge, de rayons respectivement 50, 70 et 90 
pixels. 


PB/X50/Y50/X-50/Y-50 


Définit la procédure courante comm le tracé plume baissée 
d'un carré de 50 pixels de côté, 


L/0/P/L/M/P 


Lève la plume, se place à l'origine, trace le carré, se place 
au milieu et trace de nouveau le carré. 


SCR: 199 SCR: 200 
: SI ; : FENETRE 24 24 WINDOY ; 


: ALORS (COMPILE) IF ; IMAEDIATE 
: SINON (COMPILE) ELSE ; IMMRDIATE : FOND 0 23 WIRDOV GLOBAL PAPER 
: FINSI (COMPILE) THEN ; IMMEDIATE FD © DUP COLOR GCDLOR ; 

: TANTQUE (COMPILE) BEGIN :; IMMEDIATE 

: FAIRE [COMPILE] VWHILE ; IMMEDIATE : COULEUR LOCAL IHK CC € GCOLDR ; 
: FINTANTQUE { COMPILE) REPEAT ; INMEDIAT 

E : ORIGINE OX! OY!; 


: REPETER (COMPILE) BEGIN ; IMMEDIATE 
: JUSQUA ; : MILIEU 159 X ! 94 Y ! ; 


: FINREPETER [ COMPILE] USTIL ; IMMEDIATE 


: AVAL val © X +! ; 


: YVAL vale Y +! ; 


VARIABLE FD VARIABLE CC 


VARIABLE X VARIABLE Y 

VARIABLE BAISSE VARIABLE val : UVAL val € X'! ; 

VARIABLE COMPT VARIABLE LONG 

VARIABLE XP VARIABLE YP : VAL vale Y ! ; 

VARIABLE COMPTI VARIABLE LOKGI 

VARIABLE MOT 6 STRIKG CHAIRE : HETTOÏIE FOBD CLS COULEUR ; 


40 STRING ENTREE 40 STRING AUX 
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SCR: 
91 ARRAY SINTABLE 

: EXPLIR DO I SIXNTABLE ! LOOP ; 

10000 9998 9994 9986 9976 9962 9945 9925 


: ! 
© BAISSE ! ORIGINE DEPLACE 


SEDI 


201 


9903 9877 9848 9816 9781 9744 9703 9659 
9613 9563 99511 9455 9397 9336 9272 9205 
9135 9063 8988 8910 8829 8746 8660 8572 
8460 8387 8290 8192 8090 7086 7880 7771 
7660 7547 7431 7314 7193 7071 6947 6820 
91 43 ENPLIR 

6691 6561 6428 6293 6157 6018 5878 5736 
5592 5446 5299 5150 5000 4848 4695 4540 
4384 4226 4067 3907 3746 3584 3420 3256 
3090 2924 2756 2588 2419 2250 2079 1908 


1736 1564 1392 1219 1045 0872 0698 0523 ‘ 


0349 0175 0000 : 
43 0 EMPLIR FORGET EMPLIR 


: >180 DUP(S] 90 > ALORS 180 SWAP - 


FINSI  SINTABLE € ; 


: SIN 360 KOD DUP [SI 0<. ALORS 360 + 


FIST 
DUP SI 180 > ALORS 180 - >180 NKGATE 
| S1IOK 180 


SCR: 202 
DBPLACE 
S1 BAISSE € ALORS 1 € Y € LIRETO 
SLHON PAPER À © Y © PSET 
DK 
FLESI ; 
: CERCLE 


val © X 6 + Y © PSET 361 1 
DO 
Z € val € ] COS 10000 #/ + 
Y © val € 1 SIS 10000 #/ + LINETO 
LOCP 
PAPER X © Y © PSET IBK ; 


VISU FENETRE GLOBAL PAPER O COLOR 
IHK 3 COLOR 0 24 LOCATE 40 SPACES 
BELL INVCOLOR ; 


: SAISIE VISU CSRO 


© 24 LOCATE ." >" 39 LINPUTS ENTREE S$! 
#* /* ENTREE $+ FOND COULEUR CSROFF ; 


: TEMPO 3000 WAIT ; 


SCR: 203 
: CONV KIDS DROP 1- CONVERT DDROP ; 


: CONVERSION 
SI CHAIRE LEN 1 > ALORS 
S1 CHAINE 2 1 KIDS ” -" s= 
ALORS O0. CHAINE 3 CHAINE LEN 2- 


CONV NEGATE 
SIXOX 0. CHAINE 2 CBHAIHE LES 1- 
CORV 
FIISI 
val ! 
FIRSI ; 
: VIDE ‘ “ CHAIEE S$! ; 


INIT 1 FRAME O FD ! 3 CC ! HETTOIE 


, 
’ 


: AFFICHE VISU 


0 24 LOCATE ." Pt" LT": "T7? 

.” Coul.: " CC 7 ." Plume: ” 

S1 BAISSE € ALORS .”" Baissee” 
SIIOK ." Levee” 

ELESI TEMPO FOND COULEUR ; 
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SCR: 204 


: ERREUR BELL BELL ; 
: CHAINE? CHAINE TYPE TEMPO ; 


ERREUR VISU .” Sortie ecran dans "” 


TESTI SI X © DUP O< SWAP 319 » OR 


| ALORS SORTIE IP € X ! 
FISSI ; 


ï : 
: TESTY SI Y © DUP 0< SWAP 191 > OR 
Y'! 


DRS SORTIE YP € 


DUP Re - O< SWAP R> + 


S1 val € >R Y © DUP R€ - OX SYAP R€ + 
R Ie 
IR 


I 
OR ALORS SORTIE 
SINON CERCLE 


FIST ; 
: SYEATAXE ERREUR VISU ." Erreur de synta 
xe dans ” CHAIRE? ; 
: TESTC val € DUP 0< SYAP 7 > OR ; 


: ERC 


ERREUR VISU ." Couleur illegale da 


n6 * CHAINE? ; 


SCR: 


205 


: EXECUTION CHAINE ASC CASE 


78 OF 


HETTOIE ENDOF 

ORIGINE DEPLACE ERDOF 

MILIEU DEPLACE ENDOF 

1 BAISSE ! ENDOF 

© BAISSE ! ENDOF 

CONVERSIOK S] TESTC ALORS ERC 


val © CC ! COULEUR FINSI ENDOF 


CONVERSION SI TESTC ALORS ERC 


val © FD ! FOND FLKS] ENDOF 
OF CONVERSION X € XP ! XVAL TESTX 


ERDOF 
CONVERSION Y © YP ! YVAL TESTY 
ERDOF 
COEVERSION X © XP ! UVAL TESTX 
ENDOF 
CONVERSION Y © YP ! VVAL TESTY 
EXDOF 


68 OF DEPLACE ENDOF 

82 OF CONVERSION TESTCERCLE EBDOF 

69 QF MOT € EIECUTE ENDOF 

83 OF INITSCR INK 2 COLOR ABORT ENDOF 
65 OF AFFICHE ENDOF 

SYATAXIE ERDCASE ; 

SCR: 206 

: DECODAGE 


S1 ENTREE ASC 80 = 
ALORS ENTREE 2 ENTREE LES 1- MIDS 


AUX $! 


SLHON 1 CORPT ! 


TANÏQUE COMNPT © ENTREE LEN « 
FAIRE O LOKG ! 
TANTQUE ENTRÉE CONPT € 
LONG € + 1 KIDS 


“ /" $= HOT 
FAIRE LONG 1+! 
FIATANTQUE 


VIDE ENTREE COMPT € 
. LONG © MIDS CHAIEE $! 
S1 CHAINE ASC 80 = 
ALORS ENTREE CONPT € 1+ 
ENTREE LEN COMPT € 
- MID$ AUX $! 
ENTREE LEN COKPT ! 
SISON FXECUTIOR CONPT € 
LONG € + 1+ CONET ! 


FENTANTQUE 


MUMPS DERNIERE PARTIE _ par Yannick LE GRAS 


XV LES VARIABLES GLOBALES 


À) Introduction 


Depuis le début de ce petit manuel, nous n’avons utilisé que des variables 
ménoire.ou "variables locales*, Ces variables sont à la disposition de 
l'utilisateur, et de lui seul, uniquement pendant sa session. Eties ont une 
duree de vie limitée. Bien que nous ayons affirmé : MUMPS ne travaille jamais 
sur des fichiers, 1! est, matgré tout, important de pouvoir conserver Îles 
informations soit entrées, soit calculées. Ce sera le rôle des variables 
“globales", qui se différencient des variables locales par le fait qu’elles 
sont accessibles à plusieurs utilisateurs (s’ils en ont l’autorisation). Les 
utilisateurs familiers avec des langages tel que APL et ALGOL ou PASCAL 
devront utiliser le terme “local” avec précautions. 


B) Les variables GLOBÂALES 


Les variables globales répondent aux règles enoncées pour Îles variables 
Tocales à la différence qu'elles sont précédées par un accent circonfiexe. 
Elles Jouront être indicées. Lorsqu'on fait référence, à ce qu’on a 
l’habitude d'appeler un fichier, en MUMPS on utilise une arborescence de 
variables globales, Le contenu des variables globales peut etre affecté à 
des variables locales. 


Attention ! 11 existe trois situations dans lesquelles les variables 
globales NE DOIVENT PAS ÊTRE UTILISEES : 


- Comme variable de contrôle de boucle (avec l’ordre FOR) 


- Comme variable réceptrice dans une commande READ 


- Comme argument entre parenthèses de la commande KILL 


C) Reference simplifiée des variables globales (Naked references) 


MUMPS permet, en plus de ce que nous avons déja vu, d’utiliser une forme 
simpiifée pour référencer les variables globales. Cette forme permet de citer 
un ou plusieurs index . (indices) sans avoir a redéfinir le nom et les 
indices précédenment utitisés. Examinons la commande suivante : 


SET “A(1,2,3)m3,"AC1 ,2,4)=4 "A1 ,2,5)=5 


En utilisant la forme simplifiée nous pouvons écrire la même commande de la 
facon suivante : 


SET *4(1,2,3)2=3,"(4)=4,(5)=5 


Dans cette ligne de commande nous avons : 


- Âlimente la globale “A(1,2,3) avec 3 


- 21 Aa ir référencée par la derniere “naked reference" en y 
ajoutant l’indice 4 


référencée par la meme "naked reference" en y ajoutant 
l’indice 5 


En fait MUMPS a maintenu dans 1a “naked reference" la description : “A(1,2 . 


NOTE IMPORTANTE : MUMPS conserve toujours la description de la dernière 
variable citée moins le dernier indice se trouvant près de la parenthèse 
fermante. La naked référence peut ®tre erronée lorsque : 


- l'utilisateur n’a jamais fait appel à une variable gobale 
- apres l’utilisation d’une globale sans indice : 
— où à la suite d’un $DATA ou un $NEXT quand le niveau retourne n’existe pas 
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La naked référence permet également de citer plusieurs indices. Exemple : 


SET “ACI,2)=7,"(2,3)=15 


Ceci est identique à : SET *A(1,22=7,"A(1,2,3)=15 


Un dernier exemple illustre l’utilisation de la naked référence. Imaginons 
le traitement suivant : Apres avoir verifié de l'existence de là variable 
fA(1), nous voulons créer 188 nouvelles variables du type “ACI,J)2J . Nous 
pouvons ecrire :! 


IF $DATAG"AC1)) FOR J=1:1:188 SET *(I1,J)=J 


Apres l'exécution de cette ligne l’arborescence sera composée de 181 
indices, puisqu’à chaque passage dans la boucle ja naked référence ect 
incrémentée d’un indice. Le résultat global de l’arborescence est : 


*A 
ACL) 
*AC1,1)=1 
*A(1,1,2)22 
*A(1,1,1,3=3 
/ 
1 
AAC, 1, 15l5l4lslslolsloseslolsl5l;l31,188)=188 


Si nous avions voulu avoir une arborescence verticale à la place d’une 
arborescence horizontale, nous aurions écrit : 


IF SDATAG'ACID) SET *(1,1)=1 FOR J=2:1:188 SET *(J)=J 


Regardons la ligne suivante et commentons-|la. 
SET “A(1),*(22="(3,4) 
Quand nous affectons le contenu d’une variable à une autre variable, MUMPS 
commence par verifier que la variable emmettrice existe (c’est également 
vrai pour les variables locales). Par conséquent, le fait d'écrire : 
"SET ‘A(3,4)2"TATA" ,*AC1)=1, (292 (3,497 
Permet d’affecter à *(2) le contenu de *C3,4). Mais en réalite l'affectation 


est S “A(3,2)="4(3,4) puisque la naked référence est d’abord *A(3 puis *A( 
et ensuite ‘AC3. 


D) La commande LOCK 


Dans un environnement multi-utilisateurs, les différentes taches actives 
doivent être synchronisées. La synchronisation est nécessaire afin de 
prévenir les incohérences ou les dégradations de la base de donnfes, lors 
d'accès simultanés par plusieurs utilisateurs aux mêmes informations. I1 est 
impensable qu’un usager introduisant un nouveau document autorise son voisin 
le supprimer dans Île même temps. L'utilisation de la commande LOCK évite ce 
désagrement. Cette commande est conventionnelle, pour qu’elle soit effective, 
il est important qu’on la retrouve à chaque fois que l’on utilise une 
ressource. Pour imager cette commande, imaginons deux personnes ayant 
chaqu’une une clef pour ouvrir une porte. La première personne ayant 
introduit sa clef dans la serrure interdira l'accès à la deuxième. Nous 
pouvons compliquer Île problème en disant- qu’une des personne veut ouvrir et 
l’autre fermer la porte. Le status de la porte dépendra en finalité de la 
dernière personne y ayant eu l'accès. C’est ce phénomène que les programmeurs 
“MUMPS" doivent prendre en compte. Regardons la routine ci-dessous et 
immaginons que deux utilisateurs l’exploitent au même instant. Qu’est ce qui 
va se passer 77? 


MAJCLI 3MISE À JOUR ELI Y.L.6. 2/N0V/B4 3/N0V/84 
S NBCLI="CLI1(8)+1 

R "entrez le nom du nouveau client : *,NOM 

S *CLI(NBCLIDENDM, CLI(B)=NBCLI 
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Les deux utilisateurs auront chacun la même valeur dans NBELI, le contenu de 

*CLI(NBCLI) après l’exécution du deuxième ordre SET contiendra le dernier nom 
saisi, le premier étant remplacé par le second. La commande LOCK ou L résoud 

ce délicat problème. 


En effet, cette commande permet de réserver des ressources logiques. Elle 
s’applique sur les variables locales ou globales. Elle verrouille toute 
l'arborescence situee en dessous, appelée "descendants", de la ou des 
variables citées, mais également les "ascendants" (voir figure ci-apres), Un 
nouvel ordre LOCK déverrouille les ressources précédemment verouillées. Cette 
fonctionnatité est très pratique car ele évite les situations de "dead lock” 
Tétreinte mortelle),.Cette situation survient dans d’autres systèmes lorsqu'un 
utilisateur à verrouillé la ressource X, un deuxième verrouille la ressource 
Y ,et demande 1a ressource X alors que le premier demande la ressource Y. 
Reecrivons la routine ci-dessus, en prenant soin de verrouiller la variable 
NBCLI, Si le meme progranme est appelé, il attendra que la ressource NBCLI 
soit liberée. 


MAJCL1 3MISE À JOUR CLI Y.L.G,. 2/N0V/84 3/NOV/84 
LOCK NBCLI S NBCLI="CLI(A8)+1 
R “entrez le nom du nouveau client : *,NOM 
S *CLICNBCLI)=NOM,CLI(O)=NBCLI LOCK 


Un temps d’attente maximum peut être ajouté aux arguments de la commande 
LOCK. Si ce temps est depassé, la variable $TEST est, comme d’habitude, 
alimentée avec la valeur 6 (faux) et aucun verouillage n’est effectué. La 
syntaxe du LOCK n'étant pas très simple à expliquer nous allons voir et 
commenter quelques exemples : 


Commande Resultat 

LOCK déverrouille toutes les variables 
precedemment verouillées 

LOCK “A verrouille la variable “4 et tous ses 

| descendants 

LOCK À,B verrouile À, deverrouille À, verrouille B 

LOCK (’A,B) verrouille B et ‘A plus ses descendants 

LOCK À:2 verrouille À dans un temps limité de deux 


secondes, $TEST contiendra: { (vrai) si À 
est verrouillee, 4 (faux) dans l’autre cas 


LOCK *A(1,2,3) verrouillé: "A(1,2,3) 
*A(1,2,3,4) 
A1 ,2,8,1) 
mais aussi: 


ARBORESCENCE DE LA VARIABLE ‘A 
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Dans ce chapitre nous avons vu ce qu'étaient les fichiers en MUMPS. Ce ne 
sont que des variables stockées et partageabies. Difference entre une 
variable locale et une variable globale : l’accent circonfiexe. Dautre part 


nous avons vu qu’il était possible de gérer les conflits d'accès aux 
variables. 11 est bon de rappelerque les variables locales sont seulement 
disponnibles pendant la session de connexion avec la machine. Avec toutes 
les notions déja vues, il est facile de percevoir la puissance et la 
simplicité du langagé MUMPS dans la gestion des bases de donnees. 


Surfe de l« page & 


SCR: 207 SCR: 208 
: PROCEDURE : rod 7 RAD 1+# ; 
1 COMPT1 ! : ALEA rnd COLOR (EMIT) rnd 52 + NOTE ; 
SI AUX ASC 47 = : EXITI ’ ALEA CFA 1 SYSVEC ! ; 
| ALORS COMPTL 1+! : ENIT2 ’ CEMIT) CFA 1 SYSVEC ! ; 
FINSI : PRESENTATION VISU INVCOLOR 
TANTQUE COMPT1 © AUX LEN < FAIRE 0 24 LOCATE .” Appuyez sur une touche 
0 LONG1 ! pour continuer" FOND COULEUR 
TANTQUE AUX COMPT1 © LONG1 © + 1 “ B/X47/D/Y47/D/X-47/D/Y-47/D/" AUX $! 
MIDS ” /” $= NOT " E/L/V48/V48/D/C5/E/L/U96/V96/D/C6/E/" 
FAIRE LONG1 1+! ENTREE $! 
FINTANTQUE DECODAGE EMITI1 2 DUR CSROFF 
VIDE REPETER 1 1 SIZE 2 3 LOCATE ." K 
AUX COMPTI1 © LONG1 © MID$S CHAINE 8 9 LOCATE .* L'" 
$! EXECUTION 14 15 LOCATE ." G" 0 O SIZE 
COMPTI © LONG © + 1+ COMPTI ! 25 18 LOCATE .” J.P. POSTEC” 
FIXTANTQUE ; JUSQUA ?TERMIRAL 
FINREPETER 


EMIT2 24 DUR INIT ; 
* PROCEDURE CFA MOT ! 
: XLG INIT PRESENTATION 
BEGIN 
/ | SAISIE DECODAGE 
AGAIX ; 


Quelques explications à propos de ce programme | 


-L'écran 199 contient la définition des mots de structure afin 
de pouvoir utiliser un langage proche de l'algorithmique. Il 
contient également les déclarations des diverses variables 
utilisées. 


-L'écran 201 est relatif à la trigonométrie inexistante dans 
le FORTH de base du T07-70. Cela est nécessaire pour le tracé 
des cercles. 


-L'écran 204 contient tous les tests (sortie d'écran, syntaxe, 
couleur). Cette partie n'était pas demandée dans l'épreuve 
mais a été ajoutée pour le confort de l'utilisateur. 


-L'écran 205 se rapporte à l'exécution de la chaîne selon la 
lettre de début. Il est à noter que j'ai ajouté 2 mots, 
toujours pour le confort : 

A : affiche les coordonnées X et YŸ du point courant, le 
numéro de la couleur courante ainsi que l'état de la plume : 
Baissée ou Levée. 

S : permet de sortir (proprement!) du programme. 


-L'écran 206 est relatif au décodage de la ligne entrée puis à 
son exécution, 
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L'écran 207 contient le mot relatif au décodage et à 
l'exécution de la procédure. Celle-ci est sauvegardée dans la 
variable AUX lors du décodage général (écran 206). Vous pouvez 
remarquez que le CFA de PROCEDURE est stacké dans la variable 
NOT. Ceci est à lier au mot EXECUTION qui lorsque le cade 
ASCII de la première lettre est 69 (E) exécute ce qui est à 
l'adresse que contient MOT, donc exécute PROCEDURE. Ceci 
s'appelle une indirection et permet dans certains cas de 
définir des mots après que l'on en ait besoin. À rappracher 
des procédures ”FORWARD” de PASCAL! 


L'écran 208 contient le mot PRESENTATION qui utilise lui-même 
le MLG avec une procédure. Remarquez la vectorisation avec les 
mots EXIT1 et EMIT2. Le mot MLG est le programme principal et 
c'est lui qu'il faut taper pour lancer le jeu. 


Faites de beaux dessins ! 
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DATA WELT 


DU LISP ATARI 

DU C COMMODORE 

DU FORTH APPLE 

DU LOGO pour IBM ] 

DU dBASE II : 

DU PASCAL ; 
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DATA WELT V i . SC 
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68000, 280, 8080. 8086, 1802. 28, 
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FORTH Les micro-ordinateurs FORTH de Rockwell par B.DEREGNAUCOURT 


Reslicer à reu de frais un micro-ordinnateur rroiremseble en forth est davenu rossible deruis la sortie sur le 
cærche de ? microrosesceurs monozhir le RESFIL el le RÉEF17, Rockuzll 2 davelosre aulour d2 ces cicuils intedres el 
de 6500 plusieurs confidurations de micro qui integrent toutes le Rozkuell Single Chir (RSÈ) FOXTH, 

Sans aborder le cole teciquernous allons dacrire les possibhililes d2 ce3 suslemas 


une UC 48502 avec 4 nouvelles instructions ? SHBRHBrHRS HER, L 
192 octets da RAA 
Pour les entrezs/corties on disroze de ports raralleles 8 bils 
- ? ports pour le Ré 
- 5 ports pour le R654F12 
- & ports rour Le R65010 
2 cowtleure/tirers rrofacaahles 16 bits avec lalchs 
- une interface serie asuachrone full durlex da 59 a 9609 bauds 
{ sens gestion de lides de controle ) 
= 10 sources d’interrurtions passibles +! 
- 4 Lines a detection de front (2 posilivesr2 nedslives) 
- une entrez RÉSET 
- une entree HI 
- 2 coœwteurs 16 bils 
- les donnees recues où transnices sur la liaison serie 
- 2 vilesses sont possibles 1 az où 2 De 
Ces caralerictinues sont comzunes eux configurations envisadesbles } 


APPLICATION 


APPLICATION 


DEVELOPMENT EPROM RGSFRI 
RL 58K BYTES DEVELOPMENT 
it s AGSFIV ROM 
A6SF12 Rene Re 
one MICRO: 
COMPUTER COMPUTER 


R65FRI 

DEVELOPMENT 
ROM 

sk GYTES 


APPLICATION 
RAM 
{OPTIONAL) 


R6501Q 
MICRO. 
PAOCESSOR 


DEVELOPMENT PRODUCTION 


Figure 1. R65FR1 Configuration 1 Block Dlagram 


DISK AND 
HEADS RAM 
s6X BYTES 


R6501Q 
MICRO- 
PAOCESSOR 


R65FA2 
APPLICATION 
DEVELOPMENT EPROM 


ROM 
ok BYTES s16K 


MH sai Figure 4. R65FR3 and R65FK3 


ROM MICRO- Configuration 3 Block Diagrams 
3K BYTES PAOCESSOR 


APPLICATION 
DEVELOPMENT ee k 


SUR BYTES 18K BYTES 


DEVELOPMENT PRODUCTION 


Figure 2. R65FR2 and R65FK2 Configuration 2 Block Dlagrams mme 
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À tous ces systemes on peut ajouter une interface lecteur de disouetles,.Hous avons utilise le 02793 qui peul conander 
n’ imrorte auel lecteur 5 où 8 pouces, sirele où double faces 46 40» où 99 pistes, 

Fralinuensnts une seule configuration est realisshle (13 rremiere }: elle 2 ele longuerent eludiee dans la revue 

Micros et Robols el reprends les chenas proposes per Rocwell en u adjaignent une interface comiroleur de disque, 

Le circuit irrrire est disponible chez FACIMrour les autres configurationss il n’ existe ras de cirouil inrrire 

en france el nous n° avons pas lrouve de dcumentalions (reve chez Rockuell France), 


Four La consolesnous avons utilise un minitel via la liaison R5232 du micro et le rrise reri-informalique du minilel 
mosennant une pelile interface d'adartation, Neannoins Le rrox de develorrement necessite d'etre lederenent podifiee 
cer le ricro initialise 18 liaison R6292 en 7 hits sans parie alors qu’ il faut 7 hils rarile paire pour le minilel 
Mais si vous rossedez des un ordinneteur muni d’une liaison Rôr rien ne vous eémreche d'utiliser La consoles L’ ecran 
et le drive de cet ordinnateurs le RSC-ORTH autorisant La conrilation directe rar liaison RS232 ! 

Tout cele donne une configuration pinieum a 150% environ, (le circuit RéEIL est distribue rer le sociele En) 
L'adjsnetion de 1° interface pour lecteur de disquelles coule environ 9997 rrix auouel il faut rajouter celui du où des 


lecteurs, 


Quand au Forth rroroser il est tres comrlet (sur-ensemble du Fié Forth 79 U1,0) La rox de develorrement contient aussi 


un soniteur et un asceshleur, Le manuel Livre avec La rom est extregesent bien faits c' 


esl sresque un cours de forth ! 


Pour les aprlications industrielles rarellons que le code conrile de ce forth est extressuesl conrscl neñe coere 
au Jangade machines on peul compiler avec enteles sereres et reloser le cods en RM: FROM où ROM, Le progremme mis en 
ros devient aulo-start (ras de boot s faire) simlesant en éveculant auparavant un mot rarticulier (AUTOSTART h 


les enteles en sont suprrinses 


et son execution en node production ne necessite plus la ror de develorrement pois 


seulement une version rediile du nogau forth contenu dans ce qu” on azrelle la Kernel ro (ro masauee du micro), 
Avec ses 49 lignes d’ entreez/soriess 5es deux comleurs/linarc rrodrammables el son tres faible encontrenents il rernel 
de resoudre bien das problemes où ces concurrents ne rrorose que l' assembleur, 


ADRESSES UTILES 
FACIMr 19 rue de Hegenhoins 68499 SAINT LOUIS 
ER 237 rue de Fournur ZAC de RiCs 7953) RE 


REFERENCES 
HICRO ET ROBOTS H 11 et 12 (O5, et Nov, 84) 
NOTE HN APPLICATION ROHELL à 2162 ! 


“ À Lou-Cost Tevelorsant Module For The RG FORTH Microcomeutert 


RENSEIGNEMENTS 


JEAN-CLAUTE LEMAIGRE Tel (16 1) 60 86 39 4 (donicile) 


FORTH Extraction de racine 


: SORT ( n --+ racine carrée de n ) 
DUP OK { test si nest inf à O ) 
IF ." Argument illégal" ABORT 
ELSE DUP 2/ 
10 0 
DO 
DDUP / + 2/ 


THEN. ; 


Ce programme calcule la racine carrée d'un nombre n selon le 
principe de l'algorithme de NEWTON. IL ne s'applique qu'aux 
nombres entiers de 16 bits et ne délivre que la partie entiè- 
re de la racine. Le résultat obtenu est équivalent à l'opéra- 
tion INT(SQR(n)} en langage BASIC. 


Exemples: 


81 SQRT 


{ itérations: 21 12 9 9999999) . affiche 9 


par Marc PETREMANN 


32761 SORT 
{ itérations: 8191 4097 2052 1033 532 296 203 182 181 181 ) 


. affiche 181 


Les valeurs délivrées par 1 SORT et O SQRT sont erronnées. Un 
test est effectué si on cherche à extraire la racine carrée 
d'un nombre négatif. 


Le procédé d'obtention de la racine carrée par ce procédé est 
certes discutable, mais il offre l'avantage d'être assez rapi- 
de d'exécution et s'applique fort bien aux applications gra- 
phiques où l'on se passe des valeurs fractionnaires (si vous 
avez des demi pixels, c'est que vous êtes dotés d'un interface 
graphique révolutionnaire). 


Cet algorithme peut commodément être réécrit en assembleur ou 

en langage PASCAL (utilisation des INTEGER). Bien entendu, si 

vous étendez ce domaine aux entiers double précision, il fau- 

dra augmenter le nombre d'itérations (boucle DO..LOOP), ce qui 
diminuera les performances de la définition actuelle. 
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PROLOG PROGRAMME D'AIDE AU DIAGNOSTIC par Yves BESOMBES 


list _banqueldiag). Ecrit en CRIL-PROLOG, avec modification des noms de primi- 


cons(q.#1) tives conformément au Prolog dit "de Marseille". 
- i 1)."0") LES 
2 td res : IL s'agit de traiter des informations ayant comme objectif 


de faire coincider un diagnostic avec une liste a'items 


et tr sensés représenter ce même diagnostic. 
-cons (#2.#1). Les clauses représentant'un diagnostic seront de la forme 
diag(*x1,*2). 
dans_1C#1.#2,#3) diag étant la tête de clause 
-dans_ou(#i, #3) #1 étant le nom générique du diagnostic 
-dans_1(#2,#3). #2 la liste des items constituant ce diagnostic, ter- 
dans_1(*0",#5) minée par "O", équivalent de nil en Pascal. 
FA Ex: diag(GRIPPE,fièvre.courbature.asthénie... MO): 
equival(#i,#2} On utilise également deux autres listes: 11 
-dans_l(#1,x2) -item(......... "o") étant la liste des items confirmés 
-dans_1l(x2,#1). de façon absolue soit dès l'entrée, soit à la suite 
de la phase de questionnement. 
chercher item non(..... ss "n") étant la liste des items in- 
-cis firmés de façon absolue... 
-lin 
-outmt" XX Entrez vos items,suivis d’un pt_virgule #20 7) 
-lin 
-outmi" XX tapez q et pt_virgule pour finir 236% * ) 
-in 
prompt (".") Le programme est hiérarchisé en plusieurs procédures prin- 
-cons("0*) cipales: 
prompt (">"). -chercher. 
chercher -compar. 
-lin -question. 
iv et des procédures utilitaires travaillant sur les listes: 
-init_ecr -cons. qui construit une liste "item(......)". 
—v_n dans ou, qui recherche si une sous-liste e:t dans une 
-windowt4,18,1,54) 1iste. 
in -dans 1. qui recherche une liste dans une autre. 
FEOMPEE: -equival. qui recherche l'équivalence de deux listes, 
FhRtEoer 5 les items (ou termes) n'étant pas forcément dans le 
-window(1,10,1,50) Nes Ordre 
2 item plus., item ds., terme plus. travaillant sur 
l'ajout et la recherche de termes dans une liste. 
-ef_pag(item) 
-ef_pag(item_non) et des procédures d'affichage écran pronre à l'APRICOT PC 
-ajtb{iitem_non("*0")."0") (nottament les procédures de fenètrage) permettant d'avoir 
-outm{i" XX session terminee  XXKX#") l'écran suivant: 
in 
SR RSR Un MED Sn eee 


+ procedure question + + liste des items + 
sous_l(x#1.X2,#3,#4) # + + + 
-non(dans_ou(X1,#3)) + items x valide ? + + + 
-sous_1l(#2,X3,Xx1.*4). + + + valides invalidés + 
sous_l("0",x1,%#4) + O/N ? + + + 
-ajtbiss _lis(x4)."0") + + + + 
ht ee 
sous_l(x1i.#2,X3,%4) 
dans où (HAL, HS) 
-sous_l(#x2,#3,#4),. + diagnostic possible: x + 
+ + 
compar + diagnostic confirme: x + 
-diag(#1,#2) + + 
-compar {#1,#2). + diagnostic exclu y + 
compar (#1,%#2) + + 
—-item_nont(#3) ee me ne 


-item_ds(#2,%X3) 


Le ë £ £ 
_mindont23,24,32,60) programme démarre en effaçant le paquet de clauses 


"chercher". 


-outt (#1) < 

55 1-entrées des items (ou symptomes repérés), ce qui 
seb #2) produit une liste M"item(......... MO"): 

Litent#s) 2-le programme cheche à effacer la première clause du 

-dans_1l(#3,#2) paquet atag" en utilisant les clauses "compar": 

-windowt19,20,32,60) -si une liste äg'item est approchante de la liste 

coutt (#1) de symptômes dans ce diag(a,liste) 

-in -a il cherche en premier l'existence de "contre- 

-sous_1(#2,%5,"0") indications" contenue dans la liste "item non", 

-question(#1) ce qui lui fait sauter à une autre clause "diag" 


in, 


en cas d'effacement. 


-b il essaie de compléter la liste "item" si né- 
cessaire en utilisant les clauses questions, 
ainsi que la liste item non. 


-c arrivé à un rés. _at, il l'affiche et passe à 
la clause "diag" st vante, jusqu'à les avoir 
toutes effacées. 


3-il va de soi que l'écran est mis à jour après cha- 
que entrée. 


EE 
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questicon(#di) 


-ss_lis(xi) La forme des clauses est assez rudimentaire de la forme 
-questiont#i,#d4i,o) L “et” où ou”. Mais l'introduction de formes plus complexes 

question(#i.Xx2,kXdi,o) (liste d'items exclusifs dans une liste, ex: diag{A,ou(1. 
-eg(*l,ou(#lis)) 2.3."0").4.5.6."C") n'est pas spécialement délica*e à met- 
-47/ tre au point. 


“af_item 
—Window(4,18,1,54) 


—ln 
iv 
—outm(* FKY lequel des signes suivant !: ") 
-lin 
routm(® taper son no,ou bien O si aucun,ou bien t si tous‘) 
-ln 
ven 
-af_lis(#lis,0) Les seules primitives sont rares dans ce programme. Il 
—i v s'agit de: 
Je - ajtb ajoute en bas d'un paquet de clause. 
outmc" est-il present ? #XX%") — cons construit une liste avec des termes. 
von - esc, cils, In, outm, outt, outc, prompt sont des 
tn procédures d'affichage d'écran, 
-lirte(Xrep) -— ef _paq efface le paquet de clause. 
-lequel(*#lis,#rep,*r) — lirte lis un terme au clavier (terminé par ";"), 
-question(#2,#di,#r). - // le eut de prolog. 

question(*i.#2,Xdi,o) - plus procédure d'addition. 


-af_item 


Mais ce qui est totalement transparent, c'est l'utilisa- 
—window(4,18,1,54) 


tion du moteur d'inférence, avec ses boucles récursives 


in qui permettent le travail sur les quelques listes utili- 
—i_v sées. 

routmi" XX le signe ") 

-in Inconvénients, une certaine lenteur, une place mémoire 
=v rédibitoire. Exemple: avec ce programme très simple et 
-outt (#1) 256k de mémoire, il n'est pratiquement pas utilisable, 
ii v sauf à titre exemplaire !! 

-ln RS Ne EP 

outmt” est-il present x#") #* PROLOG/P CRIL-CNET v2.00 - 30 jun 85 - version MS-DOS 
-in #x Licence CRIL-CNET no 83131 - Copyright CRIL 

vin #* prelude utilise : °-S°nomS.8?-1 

in 


-lirte(krep) 
ritem_plus(trep,x*1) 
rquestion(x2,xdi,xrep). 

question(#i,x2,n) 
rwindow(235,24,32,60) 
routt(#2) 
-window(4,18,1,54) 
-cis 
ref_paqgiss_lis), 

question(*O0",#di,0) 
—af_item 


-in 
-wWindow(21,22,32,60) 
“-outt(#di} 
ref_pagiss _]lis) 

{ts 


lequel{(#lis,O,n) 
item_plusin,ou(Xxlis)) 
As 

lequel(”0°,t,c) 
{1 

lequel(#1i.#2,t,uo) 
item _plus(o,#i) 
—lequel(#2,t,0). 

lequeli(#tiis,#rep,o) 
-dif(trep,t) 
-moins'krep,1,#no) 
term plus i#liis,kno,0). 


item_plus(n,X}1) 
—item_non(x2)} 
—ef_pag{iitæem_ non) 
-ajtb(item_nan(#i.x2)."0"). 
item_plus(o,x1) 
—item(#2) 
-ef_pag(item) 
-ajitb(item(#1.%x2)."0"). 


item_non("C"). 


item_ds("O0",#1) 
11 
—impasse. 

item_ds(#item.X*i,x2) 
-dans ou(kitem,%x2) 
14. 


item_ds(#1.X2,%X3) small 


item _ds(#2,XxS). 
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wind _end 
—esc 
-oute (46). 


windowt(#1,#2,%#3,%4) 
—esc 

-outc(44) 
-plus(#i,s1i,xx1) 
-outci#x1) 
-plus(#2,31,Xxx2) 
—-outc(#x2) 
-plus(#3,31,%y1) 
-outc(#y1) 
-plus(C#4,31,Xy2) 
-outc(*y2) 

cils. 


outlitix1.#2) 
-outt (#1) 
—in 
-outi(x2). 
out1("0") 
11. 


af_item 
—i_v 
-window(5,20,55,79) 
-outm("}#t ITEMS VALIDES ##°) 
AE é 

-v_n 

-in 

—item{i#1) 

-outit(#i). 


esc 
-outct112).. 


-esc 
-outc(i13). 


fin_ses 
von 
-in 
-outm(®  XHÆHIX Encore 777 (© où n) #44") 
-lirte(#1) 
-wind_eæend 
-cils 
-boucle(#1). 


init _ecr 
-Window(19,24,1,31i) 
-outm(" Hé DIAGNOSTIC POSSIBLE * ”") 
ln 
“ln 
-outmé" XXxXX DIAGNOSTIC CONFIRME : "*) 
-in 
-lin 
-outm(" 


3% DIAGNOSTIC EXCLU : "). 


non(#1) 
#1 
4/1 
—impasse. 

non(#1). 


dans_ou(X*i,#1.#2) 
44, 

dans _ou(#1,%x2.+#3) 
reg(ou(#4),%x2) 
-dans(xi,x4) 
-/}, 

dans_ou(*1i,%x2.#3) 
-eg(tou(#4),#1) 
—dans(%*2,x4) 
—1t. 

dans_out#l,#2.x3) 

-dans_ou(x#i,#3). 


ok 
-outm("ok"*). 
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x 


NU 


af_lis("0",#no) 
ds. 
af_list(#i.#2,#no) 
“plus(äno,1i,%noi) 
-outt(#noli) 
“outm(® - *) 
routt (#1) 
-in 
—af.lis(*#2,#no1). 


term _plus(#i.#2,#no,ï#cpt) 
—egtkno,%cpt) | 


—iten_plus(o,#1) 
11. 


‘term_plus(#1.#2,#no,X%cpt) 


-Plusikcpt,1i,#cpt1) 
—ters_plus(#2,#no,#cpt1). 


bouclein) 
1, 

bouc le(o) 
chercher. 


diagii,a.d.f.g."0"). 


START 
“impasse. 


FORTH Programmation des piles et des registres 


Le problème se pose de deux façons voisines 


{) Programmer un automate à pile { FORTH par 
exemple ) 
2) Progammer une machine à nombre de regis- 
tres limités. 
Ceci en respectant les règles de la pro- 
grammation: 
1) Comprendre ce que l'on fait. 
2) Ne pas faire d'opération compliquée,source 
d'erreur. 
3) Faire une documentation claire et simple, 
en vue de la maintenance future. Tout doit 
être écrit, c'est à dire: 
- les spécifications: but à atteindre, 
- la méthode de résolution, 
- l'architecture et l'analyse du programme. 
4) Faire des programmes faciles à comprendre 
à la relecture. ‘ 
Dans le cas présent, les fils directeurs 
sont: 
- créer une série de variables temporaires, 
- faire des symboles courts, mais parfaite- 
ment définis. 
Une telle variable est définie par: 
son nom, Sa localisation, les instants de 
création, initialisation, lecture, modifi- 
cation et suppression. 
Le mieux est de donner des exemples, 


par Mr KERJEAN 


NOTATIONS 


L'encombrement désignera le nombre de mémoi- 
res utilisées à chaque étape du calcul. 

Les mots FORTH seront symbolisés comme suit: 
+ DUP + DROP ?C IF 
{ OVER î SWAP () ELSE 
P PICK 4 ROT }- THEN 


UTILITAIRES 


Les primitives suivantes se sont avérées à 


 l' usage très commdes: 


R! EUP R ; 
VARIABLE M : 
VARIABLE N : 


M! DUP M! ; 
N! DUPN ! ; 


: MO M 0 ; : >M M ! ; 
NON à 3; : NN! ; 


1) FORMULE DEVELOPPEE 


Là formule S = 2 * ( a*b + b*c + c*a }) 


. peut être résulue simplement en déclarant les 


variables: VARIABLE à VARIABLE b VARIABLE c 
VARIABLE S ; 

Mais, surtout si elles sont nombreuses, et s'il! 
faut des impressions de mise au point, il est 
préférable de les mettre en tableau, surtout que 
les déclarations correspondantes pourront alors 
être mises dans un dictionnaire auxiliaire, qui 
pourra être supprimé à la fin. 


19 


Ter N'27_ At TRE 


20 


Le programme devient alors: division plancher,qui donne les résultats sui- 


VARIABLE M 8 ALLOT vants: A = B * Q +R 
2 TAB 1- 2 * M + CONSTANT ; | 8 7 1 1 
1 TAB a 2 TAB b 3 TAB c 4 TAB S -8 7 -2 6 
{abc--S) c ! b ! a! 8 -7 -2 -6 
adbad* -8 -7 1 -1 
b dc D * + à partir des séquences suivantes,supposées 
cdad*+2*$S! Sd portables: 
A chaque instant, le tableau peut être impri- A + à- ; À [LL 4 ; B Spb ; p {li p# :: 
mé par : / % 8 
A+t,B+ —> Q+ ; A+4,B+ —> R+ ; àa-,b- —> q-;; 


.T M DUP 8 + SWAP DO I à . 2 +LO0P ; 


- Si ( Q+ 1+ + , B+ R+ RT 1e 
2) FORMULE CONDENSEE À : EH . 
Su | | | b- si ( R1 + R ; js 
Cette méthode nécessite de visualiser les dif- . F 
férents états de la pile ou des régistres. B s :signe - // : valeur absolue 
: b- -divisi , 
Une même formule peut être mise sous plu- / MTS Lo. # Reate 
: B+ + :NEGATE @ : OÙ exclusif 
sieurs formes, correspondant chacune à un pro- 
; : À , : séparateur de variable 
gramme: la surface d'un parallélépipède peut ; 
: ; : ; a- CR: d'instruction 
écrire, en marquant d'un point les variables 
A+ sn de séquence 
sise pour la dernière fois: Q 
+ 
1): S = ( a*b + bte + C+à ) * 2 
; R+ En programmation parallèle, 
à q- > les instructions peuvent être 
D Q exécutées simultanément,en pro- 
C .— R1 AE séquentielle, 1 
e*xb À: 
b*c  B 23344555532 encombrement 
A+B C 
a*e D ordre des instructions est quelconque, dans 
D+C  E une même séquence. 
E*2 S 


3443211 encombrement 


pile 
instructions ( 15 ) 
commentaires 


Les mises en facteur sont toujours conseil- 


lées, pour réduire les additions,multiplica- 
tions et surtout divisions. Les variables dont 
les diagrammes d'utilisation sont imbriqués 
peuvent être empilées, par exemple sur la pile 
retour, qui doit être nettoyée a la fin: at- 


tention aux branches conditionnelles! 


e , Dans le cas d'une machine à registres,en comp- 
tant le nombre d'utilisation de chacun d'eux, il 


2 
< D°A/ est possible de faire l'affectation suivante: 
b 
(ol D B À D 
À C C_DS 
FOOE ER +1+ instructions( 10 ) 
B abA __BDA S commentaires 
c R A 7 pile retour 
D 
S 


11 faut toutefois noter que: 


- jl existe un programme plus simple 

DIVISION PLANCHER - une telle étude ne se justifie que pour un 4 
programme d'usage très fréquent, il faut alors 
bien le documenter. En général, il vaut mieux 


Ps 


I1 s'agit de faire un programme portable de mettre l'accent sur la lisibilité plus que sur 
la rapidité ou l'encombrement. |. 
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